home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / bestofsd / FormulaPic1.AMOS / FormulaPic1.amosSourceCode
Encoding:
AMOS Source Code  |  1992-10-20  |  702 b   |  23 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************
  8.  
  9. Degree 
  10. XS=319
  11. YS=255
  12. ST=1
  13. Screen Open 0,320,256,16,Lowres
  14. Flash Off : Curs Off : Hide 
  15. Palette $0,$411,$522,$633,$744,$855,$966,$A77,$B88,$C99,$DAA,$EBB,$FCC,$FDD,$FEE,$FFF
  16. Ink 15
  17.  
  18. For X=0 To XS Step ST
  19.    For Y=0 To YS Step ST
  20.       Ink Abs(Sin(X*Y))*8+Abs(Cos(Y*X))*8
  21.       Plot X,Y
  22.    Next 
  23. Next